home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_519 / oaklisp / src.lzh / gc.h < prev    next >
C/C++ Source or Header  |  1991-06-15  |  874b  |  29 lines
  1.  
  2. /* 1/RECLAIM_FACTOR is the target for how much of new space should be used
  3.    after a gc.  If more than this is used, the next new space allocated will
  4.    be bigger. */
  5.  
  6. #define RECLAIM_FACTOR 2
  7.  
  8. #define OLD_PTR(r) (SPACE_PTR(old,(r)) || full_gc && SPACE_PTR(spatic,(r)))
  9.  
  10. extern space new, spatic, old;
  11. extern bool trace_gc, full_gc;
  12. extern unsigned long post_gc_wp();
  13.  
  14. #ifdef PROTOTYPES
  15.  
  16. extern void        gc_printref(ref refin);
  17. extern unsigned long    gc_get_length(ref x);
  18. extern ref        gc_touch0(ref r);
  19. extern ref        loc_touch0(ref r, bool warn_if_unmoved);
  20. extern void        scavenge(void);
  21. extern void        loc_scavenge(void);
  22. extern bool        gc_check(ref r);
  23. extern void        GC_CHECK(ref x, char st[]);
  24. extern void        GC_CHECK1(ref x, char st[], long i);
  25. extern unsigned short *    pc_touch(unsigned short *o_pc);
  26. extern void        gc(bool pre_dump, bool full_gc, char *reason, long amount);
  27.  
  28. #endif
  29.